object fmBatch: TfmBatch Left = 322 Top = 253 Width = 546 Height = 389 BorderIcons = [biSystemMenu] Caption = 'Batch Tool' Color = clBtnFace Constraints.MinHeight = 389 Constraints.MinWidth = 546 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object paBottom: TPanel Left = 0 Top = 317 Width = 538 Height = 43 Align = alBottom BevelOuter = bvNone TabOrder = 1 DesignSize = ( 538 43) object bvBottom: TBevel Left = 0 Top = 0 Width = 538 Height = 3 Align = alTop Shape = bsTopLine end object buNext: TButton Left = 295 Top = 10 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Next >' Default = True TabOrder = 0 OnClick = buNextClick end object buCancel: TButton Left = 375 Top = 10 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Cancel' TabOrder = 1 OnClick = buCancelClick end object buHelp: TButton Left = 455 Top = 10 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Help' TabOrder = 2 OnClick = buHelpClick end end object nbMain: TNotebook Left = 0 Top = 0 Width = 538 Height = 317 Align = alClient TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'SelectFiles' DesignSize = ( 538 317) object laSelectedFiles: TLabel Left = 8 Top = 40 Width = 521 Height = 41 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Please select files to process by clicking on the "Add" button. ' + 'You can remove any item from the list by selecting them, then cl' + 'ick the "Remove" button. After adding all the files you want to ' + 'process, click the "Next" button to proceed.' WordWrap = True end object laTitle0: TLabel Left = 8 Top = 8 Width = 114 Height = 13 Caption = 'Select Archive Files' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle0: TBevel Left = 8 Top = 27 Width = 526 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object lbSelectedFiles: TListBox Left = 8 Top = 88 Width = 437 Height = 222 Anchors = [akLeft, akTop, akRight, akBottom] ItemHeight = 13 MultiSelect = True PopupMenu = pmSelect TabOrder = 0 end object buAddFile: TButton Left = 452 Top = 88 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = '&Add' TabOrder = 1 OnClick = buAddFileClick end object buRemoveFile: TButton Left = 452 Top = 120 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = '&Remove' TabOrder = 2 OnClick = buRemoveFileClick end end object TPage Left = 0 Top = 0 Caption = 'Progress' DesignSize = ( 538 317) object laProgressFilename: TLabel Left = 8 Top = 40 Width = 99 Height = 13 Caption = 'Currently Processing:' end object laCurrentFile: TLabel Left = 8 Top = 56 Width = 521 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False end object laProgressTotal: TLabel Left = 8 Top = 120 Width = 53 Height = 13 Caption = 'Total Time:' end object laProgressCurrent: TLabel Left = 8 Top = 80 Width = 56 Height = 13 Caption = 'Current File:' end object laFilesProcessed: TLabel Left = 8 Top = 168 Width = 77 Height = 13 Caption = 'Files Processed:' end object laTotalPercent: TLabel Left = 472 Top = 120 Width = 56 Height = 13 Alignment = taRightJustify Anchors = [akTop, akRight] AutoSize = False Caption = '0%' end object laCurrentPercent: TLabel Left = 472 Top = 80 Width = 57 Height = 13 Alignment = taRightJustify Anchors = [akTop, akRight] AutoSize = False Caption = '0%' end object laTitle1: TLabel Left = 8 Top = 8 Width = 50 Height = 13 Caption = 'Progress' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle1: TBevel Left = 8 Top = 27 Width = 524 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object pbCurrent: TProgressBar Left = 8 Top = 96 Width = 521 Height = 17 Anchors = [akLeft, akTop, akRight] TabOrder = 0 end object pbTotal: TProgressBar Left = 8 Top = 136 Width = 521 Height = 17 Anchors = [akLeft, akTop, akRight] TabOrder = 1 end object lbProgressCompleted: TListBox Left = 8 Top = 184 Width = 521 Height = 119 Anchors = [akLeft, akTop, akRight, akBottom] ItemHeight = 13 TabOrder = 2 end end object TPage Left = 0 Top = 0 Caption = 'Result' DesignSize = ( 538 317) object laResults: TLabel Left = 8 Top = 40 Width = 66 Height = 13 Caption = 'Batch Results' end object laTitle2: TLabel Left = 8 Top = 8 Width = 80 Height = 13 Caption = 'Batch Results' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle2: TBevel Left = 8 Top = 27 Width = 521 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object buCopyResults: TButton Left = 432 Top = 56 Width = 99 Height = 25 Anchors = [akTop, akRight] Caption = 'Copy to Clipboard' TabOrder = 1 OnClick = buCopyResultsClick end object buSaveResults: TButton Left = 432 Top = 88 Width = 99 Height = 25 Anchors = [akTop, akRight] Caption = 'Save to File' TabOrder = 2 OnClick = buSaveResultsClick end object meResults: TMemo Left = 8 Top = 56 Width = 417 Height = 251 Anchors = [akLeft, akTop, akRight, akBottom] ReadOnly = True ScrollBars = ssBoth TabOrder = 0 WordWrap = False end end object TPage Left = 0 Top = 0 Caption = 'SelectOutputDir' DesignSize = ( 538 317) object laOutputFolder: TLabel Left = 8 Top = 40 Width = 521 Height = 13 AutoSize = False Caption = 'Please select the output folder:' end object laTitle4: TLabel Left = 8 Top = 8 Width = 118 Height = 13 Caption = 'Select Output Folder' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle4: TBevel Left = 8 Top = 27 Width = 524 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object rbOutputSame: TRadioButton Left = 16 Top = 64 Width = 321 Height = 17 Caption = 'Use the same folder as the original file' Checked = True TabOrder = 0 TabStop = True OnClick = rbOutputFolderClick end object rbOutputFolder: TRadioButton Left = 16 Top = 90 Width = 57 Height = 17 Caption = 'Folder:' TabOrder = 1 OnClick = rbOutputFolderClick end object rxdeOutputFolder: TJvDirectoryEdit Left = 72 Top = 86 Width = 377 Height = 21 DialogKind = dkWin32 DialogText = 'Select Output Folder' DialogOptions = [sdAllowCreate, sdPerformCreate] ButtonFlat = False Enabled = False NumGlyphs = 1 TabOrder = 2 end object ckExtractToSubfolder: TCheckBox Left = 17 Top = 128 Width = 360 Height = 17 Caption = 'Extract each archive to a separate subfolder in the output folde' + 'r above' TabOrder = 3 Visible = False end object ckRestoreFolders: TCheckBox Left = 17 Top = 146 Width = 136 Height = 17 Caption = 'Restore original folders' TabOrder = 4 Visible = False end object ckConfirmOverwrites: TCheckBox Left = 17 Top = 164 Width = 128 Height = 17 Caption = 'Confirm file overwrites' TabOrder = 5 Visible = False end end object TPage Left = 0 Top = 0 Caption = 'SelectArcFmt' DesignSize = ( 538 317) object laOutputFmt: TLabel Left = 8 Top = 40 Width = 247 Height = 13 Caption = 'Please select the format for the archive files created:' end object laTitle5: TLabel Left = 8 Top = 8 Width = 107 Height = 13 Caption = 'Batch Add Options' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle5: TBevel Left = 8 Top = 27 Width = 524 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object rbBh: TRadioButton Left = 16 Top = 64 Width = 200 Height = 17 Caption = '.bh (BlakHole)' TabOrder = 0 end object rbCab: TRadioButton Tag = 1 Left = 16 Top = 80 Width = 200 Height = 17 Caption = '.cab (Microsoft Cabinet)' TabOrder = 1 end object rbGz: TRadioButton Tag = 5 Left = 16 Top = 176 Width = 200 Height = 17 Caption = '.gz (Unix GZip)' TabOrder = 2 end object rbJar: TRadioButton Tag = 6 Left = 16 Top = 96 Width = 200 Height = 17 Caption = '.jar (Javasoft Archive)' TabOrder = 3 end object rbLha: TRadioButton Tag = 2 Left = 16 Top = 112 Width = 200 Height = 17 Caption = '.lha (LHA Archive)' TabOrder = 4 end object rbLzh: TRadioButton Tag = 2 Left = 16 Top = 128 Width = 200 Height = 17 Caption = '.lzh (LZH Archive)' TabOrder = 5 end object rbTar: TRadioButton Tag = 4 Left = 16 Top = 144 Width = 200 Height = 17 Caption = '.tar (Unix Tape Archive)' TabOrder = 6 end object rbZip: TRadioButton Tag = 3 Left = 16 Top = 160 Width = 200 Height = 17 Caption = '.zip (Zip Archive)' Checked = True TabOrder = 7 TabStop = True end object ckDeleteSource: TCheckBox Left = 8 Top = 200 Width = 209 Height = 17 Caption = 'Delete original file after creating archive' TabOrder = 8 end object ckAutoOverwrite: TCheckBox Left = 8 Top = 216 Width = 185 Height = 17 Caption = 'Overwrite files without prompting' TabOrder = 9 end end object TPage Left = 0 Top = 0 Caption = 'AddOptions' DesignSize = ( 538 317) object laFilesToAdd: TLabel Left = 8 Top = 40 Width = 258 Height = 13 Caption = 'Select files to add to your previously selected archives:' end object laTitle6: TLabel Left = 8 Top = 8 Width = 108 Height = 13 Caption = 'Select Files to Add' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle6: TBevel Left = 8 Top = 27 Width = 523 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object lbAddFiles: TListBox Left = 8 Top = 56 Width = 441 Height = 183 Anchors = [akLeft, akTop, akRight, akBottom] ItemHeight = 13 MultiSelect = True PopupMenu = pmSelect TabOrder = 0 end object buAddMore: TButton Left = 456 Top = 56 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = '&Add' TabOrder = 1 OnClick = buAddMoreClick end object buRemoveMore: TButton Left = 456 Top = 88 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = '&Remove' TabOrder = 2 OnClick = buRemoveMoreClick end object gbAddOptions: TGroupBox Left = 8 Top = 243 Width = 441 Height = 65 Anchors = [akLeft, akRight, akBottom] Caption = 'Add Options' TabOrder = 3 object laAddCompression: TLabel Left = 16 Top = 20 Width = 66 Height = 13 Caption = 'Compression: ' end object cbAddCompression: TComboBox Left = 16 Top = 36 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 0 Text = 'Maximum' Items.Strings = ( 'Maximum' 'Normal' 'Light' 'Minimum' 'None') end object ckAddSaveFullPath: TCheckBox Left = 232 Top = 40 Width = 129 Height = 17 Caption = 'Save full path info' TabOrder = 1 end object ckAddAutoOverwrite: TCheckBox Left = 232 Top = 16 Width = 185 Height = 17 Caption = 'Overwrite files without prompting' TabOrder = 2 end end end object TPage Left = 0 Top = 0 Caption = 'DeleteSpec' DesignSize = ( 538 317) object laTitle7: TLabel Left = 8 Top = 8 Width = 208 Height = 13 Caption = 'Enter File Names or Masks to Delete' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object bvTitle7: TBevel Left = 8 Top = 27 Width = 523 Height = 9 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object laDeleteSpecList: TLabel Left = 8 Top = 40 Width = 324 Height = 13 Caption = 'File names or masks to delete from your previously selected arch' + 'ives:' end object laCurDeleteSpec: TLabel Left = 344 Top = 56 Width = 75 Height = 13 Caption = 'File name/mask' end object lbDeleteSpec: TListBox Left = 8 Top = 56 Width = 329 Height = 249 Anchors = [akLeft, akTop, akRight, akBottom] ItemHeight = 13 MultiSelect = True TabOrder = 0 end object buAddDeleteSpec: TButton Left = 344 Top = 100 Width = 89 Height = 25 Anchors = [akTop, akRight] Caption = '&Add' TabOrder = 2 OnClick = buAddDeleteSpecClick end object buRemoveDeleteSpec: TButton Left = 440 Top = 100 Width = 89 Height = 25 Anchors = [akTop, akRight] Caption = '&Remove' TabOrder = 3 OnClick = buRemoveDeleteSpecClick end object edDeleteSpec: TEdit Left = 344 Top = 72 Width = 185 Height = 21 TabOrder = 1 end end end object ztvBlakHole: TBlakHole OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo RecurseDirs = False ArcType = atBh AttributesEx = [] CompressMethod = cmDeflate DefaultExt = '.bh' StoreFilesOfType.Strings = ( '.ACE' '.ARC' '.ARJ' '.BH' '.CAB' '.ENC' '.GZ' '.HA' '.JAR' '.LHA' '.LZH' '.PAK' '.PK3' '.PK_' '.RAR' '.TAR' '.TGZ' '.UUE' '.UU' '.WAR' '.XXE' '.Z' '.ZIP' '.ZOO') Switch = swAdd TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnGetPassword = ztvUnZipGetPassword OnRenameDupeFile = ztvZipRenameDupeFile OnReplaceFile = ztvZipReplaceFile Left = 8 Top = 296 end object ztvGZip: TGZip OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo ArcType = atGZip AttributesEx = [] DefaultExt = '.gz' CompressMethod = cmDeflate ConfirmOverwrites = True Switch = swAdd OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnFileExists = ztvGZipFileExists Left = 36 Top = 296 end object ztvLha: TLha OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo RecurseDirs = False ArcType = atLha CompressMethod = cmFrozen6 DefaultExt = '.lha' StoreFilesOfType.Strings = ( '.ACE' '.ARC' '.ARJ' '.BH' '.CAB' '.ENC' '.GZ' '.HA' '.JAR' '.LHA' '.LZH' '.PAK' '.PK3' '.PK_' '.RAR' '.TAR' '.TGZ' '.UUE' '.UU' '.WAR' '.XXE' '.Z' '.ZIP' '.ZOO') Switch = swAdd TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnRenameDupeFile = ztvZipRenameDupeFile OnReplaceFile = ztvZipReplaceFile Left = 64 Top = 296 end object ztvJar: TJar OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo RecurseDirs = False ArcType = atJar AttributesEx = [] CompressMethod = cmDeflate DefaultExt = '.jar' SeedDataKeys.Key0 = 305419896 SeedDataKeys.Key1 = 591751049 SeedDataKeys.Key2 = 878082192 SeedHeaderKeys.Key0 = 269766672 SeedHeaderKeys.Key1 = 33834504 SeedHeaderKeys.Key2 = 541352064 StoreFilesOfType.Strings = ( '.ACE' '.ARC' '.ARJ' '.BH' '.CAB' '.ENC' '.GZ' '.HA' '.JAR' '.LHA' '.LZH' '.PAK' '.PK3' '.PK_' '.RAR' '.TAR' '.TGZ' '.UUE' '.UU' '.WAR' '.XXE' '.Z' '.ZIP' '.ZOO') TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' OnDiskWriteProtectErr = ztvZipDiskWriteProtectErr OnDiskInDrvErr = ztvZipDiskInDrvErr OnGetPassword = ztvUnZipGetPassword OnInsertDisk = ztvZipInsertDisk OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnRenameDupeFile = ztvZipRenameDupeFile OnReplaceFile = ztvZipReplaceFile Switch = swAdd Left = 92 Top = 296 end object ztvMakeCab: TMakeCab OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo RecurseDirs = False ArcType = atCab CompressMethod = cmMsZip DefaultExt = '.cab' OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnReplaceFile = ztvZipReplaceFile TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' Left = 120 Top = 296 end object ztvTar: TTar OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo RecurseDirs = False ArcType = atTar DefaultExt = '.tar' CompressMethod = cmTarred Switch = swAdd TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' UnixUName = 'root' UnixGName = 'root' OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnRenameDupeFile = ztvZipRenameDupeFile OnReplaceFile = ztvZipReplaceFile Left = 148 Top = 296 end object ztvZip: TZip OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo RecurseDirs = False ArcType = atZip AttributesEx = [] CompressMethod = cmDeflate DefaultExt = '.zip' SeedDataKeys.Key0 = 305419896 SeedDataKeys.Key1 = 591751049 SeedDataKeys.Key2 = 878082192 SeedHeaderKeys.Key0 = 269766672 SeedHeaderKeys.Key1 = 33834504 SeedHeaderKeys.Key2 = 541352064 StoreFilesOfType.Strings = ( '.ACE' '.ARC' '.ARJ' '.BH' '.CAB' '.ENC' '.GZ' '.HA' '.JAR' '.LHA' '.LZH' '.PAK' '.PK3' '.PK_' '.RAR' '.TAR' '.TGZ' '.UUE' '.UU' '.WAR' '.XXE' '.Z' '.ZIP' '.ZOO') TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' OnDiskWriteProtectErr = ztvZipDiskWriteProtectErr OnDiskInDrvErr = ztvZipDiskInDrvErr OnGetPassword = ztvUnZipGetPassword OnInsertDisk = ztvZipInsertDisk OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress OnRenameDupeFile = ztvZipRenameDupeFile OnReplaceFile = ztvZipReplaceFile Switch = swAdd Left = 176 Top = 296 end object ztvUUEncode: TUUEncode OnError = ztvZipError Attributes = [fsZeroAttr, fsReadOnly, fsArchive, fsCompressed, fsEncrypted] DeleteOptions = doAllowUndo CompressMethod = cmUUEncode DefaultExt = '.uue' KBytesPerVolume = 0 WriteTableToFile = False OnFileExists = ztvGZipFileExists OnNonWriteableArchive = ztvZipNonWriteableArchive OnProgress = ztvUnZipProgress Left = 204 Top = 296 end object ztvUnACE: TUnACE OnError = ztvUnZipError CpuType = cptAuto OnProgress = ztvUnZipProgress OnGetPassword = ztvUnZipGetPassword OnFileExists = ztvUnZipFileExists Left = 8 Top = 328 end object ztvUnArc: TUnArc OnError = ztvUnZipError CpuType = cptAuto OnFileExists = ztvUnZipFileExists OnProgress = ztvUnZipProgress Left = 36 Top = 328 end object ztvUnArj: TUnARJ OnError = ztvUnZipError CpuType = cptAuto OnFileExists = ztvUnZipFileExists OnGetPassword = ztvUnZipGetPassword OnProgress = ztvUnZipProgress Left = 64 Top = 328 end object ztvUnBh: TUnBh OnError = ztvUnZipError CpuType = cptAuto SeedDataKeys.Key0 = 305419896 SeedDataKeys.Key1 = 591751049 SeedDataKeys.Key2 = 878082192 OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists OnGetPassword = ztvUnZipGetPassword Left = 92 Top = 328 end object ztvUnCab: TUnCab OnError = ztvUnZipError CpuType = cptAuto OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists Left = 120 Top = 328 end object ztvUUDecode: TUUDecode OnError = ztvUnZipError CpuType = cptAuto Algorithm = uudecode VolumeStartNum = 0 OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists Left = 148 Top = 328 end object ztvUnGZip: TUnGZip OnError = ztvUnZipError CpuType = cptAuto GzTarDeleteOptions = doFinal TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists OnNestedTarFile = ztvUnGZipNestedTarFile Left = 176 Top = 328 end object ztvUnJar: TUnJar OnError = ztvUnZipError CpuType = cptAuto SeedDataKeys.Key0 = 305419896 SeedDataKeys.Key1 = 591751049 SeedDataKeys.Key2 = 878082192 SeedHeaderKeys.Key0 = 269766672 SeedHeaderKeys.Key1 = 33834504 SeedHeaderKeys.Key2 = 541352064 OnGetPassword = ztvUnZipGetPassword OnGetZipFirstDisk = ztvZipTVGetZipFirstDisk OnGetZipNextDisk = ztvZipTVGetZipNextDisk OnGetZipLastDisk = ztvZipTVGetZipLastDisk OnFileExists = ztvUnZipFileExists OnProgress = ztvUnZipProgress OnCorruptZipHeader = ztvZipTVCorruptZipHeader Left = 204 Top = 328 end object ztvUnLha: TUnLha OnError = ztvUnZipError CpuType = cptAuto OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists Left = 232 Top = 328 end object ztvUnRar: TUnRar OnError = ztvUnZipError CpuType = cptAuto OnFileExists = ztvUnZipFileExists OnGetPassword = ztvUnZipGetPassword OnProgress = ztvUnZipProgress Left = 260 Top = 328 end object ztvUnTar: TUnTar OnError = ztvUnZipError CpuType = cptAuto OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists Left = 288 Top = 328 end object ztvUnZip: TUnZip OnError = ztvUnZipError CpuType = cptAuto SeedDataKeys.Key0 = 305419896 SeedDataKeys.Key1 = 591751049 SeedDataKeys.Key2 = 878082192 SeedHeaderKeys.Key0 = 269766672 SeedHeaderKeys.Key1 = 33834504 SeedHeaderKeys.Key2 = 541352064 OnGetPassword = ztvUnZipGetPassword OnGetZipFirstDisk = ztvZipTVGetZipFirstDisk OnGetZipNextDisk = ztvZipTVGetZipNextDisk OnGetZipLastDisk = ztvZipTVGetZipLastDisk OnFileExists = ztvUnZipFileExists OnProgress = ztvUnZipProgress OnCorruptZipHeader = ztvZipTVCorruptZipHeader Left = 316 Top = 328 end object ztvUnZoo: TUnZoo OnError = ztvUnZipError CpuType = cptAuto OnProgress = ztvUnZipProgress OnFileExists = ztvUnZipFileExists Left = 344 Top = 328 end object ztvArc2Arc: TArc2Arc OnError = ztvArc2ArcError Attributes = [fsReadOnly, fsHidden, fsSysFile, fsArchive] AttributesEx = [] ConfirmOverwrites = True TempDir = 'C:\DOCUME~1\Chris\LOCALS~1\Temp\' OutArcType = tyBh OnFileExists = ztvArc2ArcFileExists OnProgress = ztvUnZipProgress OnGetPassword = ztvUnZipGetPassword Left = 8 Top = 264 end object ztvMakeSFX: TMakeSFX OnError = ztvMakeSFXError SfxStubDir = 'C:\WINDOWS\System32\' OnFileExists = ztvMakeSFXFileExists Left = 36 Top = 264 end object ztvZipCheck: TZipCheck CpuType = cptAuto OnCorruptZipHeader = ztvZipCheckCorruptZipHeader OnFileExists = ztvUnZipFileExists OnGetPassword = ztvUnZipGetPassword OnGetZipFirstDisk = ztvZipTVGetZipFirstDisk OnGetZipNextDisk = ztvZipTVGetZipNextDisk OnGetZipLastDisk = ztvZipTVGetZipLastDisk OnNestedTarFile = ztvZipCheckNestedTarFile OnProgress = ztvUnZipProgress OnStatus = ztvZipCheckStatus Left = 64 Top = 264 end object ztvZipTV: TZipTV SeedHeaderKeys.Key0 = 269766672 SeedHeaderKeys.Key1 = 33834504 SeedHeaderKeys.Key2 = 541352064 RecurseDirs = False OnCorruptZipHeader = ztvZipTVCorruptZipHeader OnGetZipFirstDisk = ztvZipTVGetZipFirstDisk OnGetZipNextDisk = ztvZipTVGetZipNextDisk OnGetZipLastDisk = ztvZipTVGetZipLastDisk Left = 92 Top = 264 end object apodAddFiles: TApOpenDialog DefaultExt = '*.*' Filter = 'All Files (*.*)|*.*' Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing, ofDontAddToRecent, ofForceShowHidden] OptionsEx = [ofExNoPlacesBar] Title = 'Select Files to Add' CustDlgParams.PosParams.ShiftX = 0 CustDlgParams.PosParams.ShiftY = 0 CustDlgParams.PosParams.FitToScreen = False DlgItemsCaptions.OK = '&Add' VisibleControls = [dcFolderCombo, dcFolderLabel, dcSelectionCtrl, dcOkBtn, dcCancelBtn, dcFileName, dcFileNameLabel, dcFileType, dcFileTypeLabel, dcToolBar] ListViewStyles.HotTrack = False ListViewStyles.HotTrackStyles = [] ListViewStyles.FlatScrollBars = False ListViewStyles.GridLines = False ListViewStyles.RowSelect = False ListViewStyles.EnableRename = True ListViewStyles.EnableDelete = True ListViewStyles.PopupOnEmpty = True ListViewStyles.PopupOnSelection = True PlacesBar.Visible = False PlacesBar.Places = <> PlacesBar.AllowEdit = True PlacesBar.AllowDelete = True PlacesBar.AllowDrop = True PlacesBar.AutoScroll = True PlacesBar.BorderStyle = bsNone PlacesBar.Native = True ExtFilter.ShowFolders = True ExtFilter.Enabled = False ToolBar.Flat = False Left = 384 Top = 328 end object sdgSave: TSaveDialog DefaultExt = 'txt' Filter = 'Text File (*.txt)|*.txt' Title = 'Save Results To ...' Left = 412 Top = 328 end object pmSelect: TPopupMenu Left = 440 Top = 328 object miSelectAll: TMenuItem Caption = 'Select All' OnClick = miSelectAllClick end object miDeselectAll: TMenuItem Caption = 'Deselect All' OnClick = miDeselectAllClick end object miInvertSelection: TMenuItem Caption = 'Invert Selection' OnClick = miInvertSelectionClick end end end